;;; TwoBears techemp-json.lisp
;; Copyright (c) 2014 Kalman Kiss, Zalaegerszeg Hungary
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
;;
;; Author and contact:
;; Kalman Kiss <kiskami@freemail.hu>
;; 8900 Zalaegerszeg, Hungary
;; Kakukkfu u. 4.

(in-package :twobears)

(defun JSON-TEST-HANDLER (req resp)
  "Techempower simple JSON test with abcl-contrib 'jss"
  (set-resp-content-type_ resp "application/json")
  (resp-write_ resp
;	       "{\"message\": \"Hello, World!\"}"
	       (json:encode-json-to-string '(("message" . "Hello, World*!")))
	       
	       ))

(defun JSON-TEST-HANDLER2 (req resp)
  "Techempower simple JSON test with abcl 'java"
  (set-resp-content-type resp "application/json")
  (resp-write resp
;	      "{\"message\": \"Hello, World!\"}"
	       (json:encode-json-to-string '(("message" . "Hello, World*!")))
	      ))
